(define x 0)
(define y 1)
(define n 0)
(define sum 0)
(define (evenfibsum)
	(set! n (+ x y))
	(set! x y)
	(set! y n)
	(if (= (modulo n 2) 0) (set! sum (+ sum n)))
	(if (<= n 4000000) (evenfibsum))sum)

(print (evenfibsum))